/ Revista CD Expert 32 / CD Expert nº 32.iso / Unreal T / utdemo338.exe / System / UBrowser.u / UBrowserServerList_UBrowserIRCTextArea_ScriptText.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 47 10 63 6c 61 73 73 20 |........|G.class |
|00000010| 55 42 72 6f 77 73 65 72 | 49 52 43 54 65 78 74 41 |UBrowser|IRCTextA|
|00000020| 72 65 61 20 65 78 70 61 | 6e 64 73 20 55 57 69 6e |rea expa|nds UWin|
|00000030| 64 6f 77 55 52 4c 54 65 | 78 74 41 72 65 61 3b 0d |dowURLTe|xtArea;.|
|00000040| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 55 57 69 6e |...funct|ion UWin|
|00000050| 64 6f 77 44 79 6e 61 6d | 69 63 54 65 78 74 52 6f |dowDynam|icTextRo|
|00000060| 77 20 41 64 64 54 65 78 | 74 28 73 74 72 69 6e 67 |w AddTex|t(string|
|00000070| 20 54 65 78 74 29 0d 0a | 7b 0d 0a 09 6c 6f 63 61 | Text)..|{...loca|
|00000080| 6c 20 55 57 69 6e 64 6f | 77 44 79 6e 61 6d 69 63 |l UWindo|wDynamic|
|00000090| 54 65 78 74 52 6f 77 20 | 52 3b 0d 0a 09 6c 6f 63 |TextRow |R;...loc|
|000000a0| 61 6c 20 69 6e 74 20 69 | 2c 20 6a 3b 0d 0a 0d 0a |al int i|, j;....|
|000000b0| 09 52 65 70 6c 61 63 65 | 54 65 78 74 28 54 65 78 |.Replace|Text(Tex|
|000000c0| 74 2c 20 43 68 72 28 32 | 29 2c 20 22 22 29 3b 0d |t, Chr(2|), "");.|
|000000d0| 0a 09 52 65 70 6c 61 63 | 65 54 65 78 74 28 54 65 |..Replac|eText(Te|
|000000e0| 78 74 2c 20 43 68 72 28 | 31 35 29 2c 20 22 22 29 |xt, Chr(|15), "")|
|000000f0| 3b 0d 0a 09 52 65 70 6c | 61 63 65 54 65 78 74 28 |;...Repl|aceText(|
|00000100| 54 65 78 74 2c 20 43 68 | 72 28 32 32 29 2c 20 22 |Text, Ch|r(22), "|
|00000110| 22 29 3b 0d 0a 09 52 65 | 70 6c 61 63 65 54 65 78 |");...Re|placeTex|
|00000120| 74 28 54 65 78 74 2c 20 | 43 68 72 28 33 31 29 2c |t(Text, |Chr(31),|
|00000130| 20 22 22 29 3b 0d 0a 0d | 0a 09 69 20 3d 20 49 6e | "");...|..i = In|
|00000140| 53 74 72 28 54 65 78 74 | 2c 20 43 68 72 28 33 29 |Str(Text|, Chr(3)|
|00000150| 29 3b 0d 0a 09 77 68 69 | 6c 65 28 69 20 21 3d 20 |);...whi|le(i != |
|00000160| 2d 31 29 0d 0a 09 7b 0d | 0a 09 09 6a 20 3d 20 31 |-1)...{.|...j = 1|
|00000170| 3b 0d 0a 09 09 57 68 69 | 6c 65 28 69 2b 6a 20 3c |;....Whi|le(i+j <|
|00000180| 20 4c 65 6e 28 54 65 78 | 74 29 20 26 26 20 49 6e | Len(Tex|t) && In|
|00000190| 53 74 72 28 22 30 31 32 | 33 34 35 36 37 38 39 2c |Str("012|3456789,|
|000001a0| 22 2c 20 4d 69 64 28 54 | 65 78 74 2c 20 69 2b 6a |", Mid(T|ext, i+j|
|000001b0| 2c 20 31 29 29 20 21 3d | 20 2d 31 29 0d 0a 09 09 |, 1)) !=| -1)....|
|000001c0| 09 6a 2b 2b 3b 0d 0a 0d | 0a 09 09 54 65 78 74 20 |.j++;...|...Text |
|000001d0| 3d 20 4c 65 66 74 28 54 | 65 78 74 2c 20 69 29 20 |= Left(T|ext, i) |
|000001e0| 24 20 4d 69 64 28 54 65 | 78 74 2c 20 69 2b 6a 29 |$ Mid(Te|xt, i+j)|
|000001f0| 3b 0d 0a 0d 0a 09 09 69 | 20 3d 20 49 6e 53 74 72 |;......i| = InStr|
|00000200| 28 54 65 78 74 2c 20 43 | 68 72 28 33 29 29 3b 0d |(Text, C|hr(3));.|
|00000210| 0a 09 7d 0d 0a 09 09 09 | 0d 0a 09 52 20 3d 20 53 |..}.....|...R = S|
|00000220| 75 70 65 72 2e 41 64 64 | 54 65 78 74 28 54 65 78 |uper.Add|Text(Tex|
|00000230| 74 29 3b 0d 0a 09 55 42 | 72 6f 77 73 65 72 49 52 |t);...UB|rowserIR|
|00000240| 43 50 61 67 65 42 61 73 | 65 28 4f 77 6e 65 72 57 |CPageBas|e(OwnerW|
|00000250| 69 6e 64 6f 77 29 2e 41 | 64 64 65 64 54 65 78 74 |indow).A|ddedText|
|00000260| 28 29 3b 0d 0a 09 72 65 | 74 75 72 6e 20 52 3b 0d |();...re|turn R;.|
|00000270| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 4c |.}....fu|nction L|
|00000280| 61 75 6e 63 68 55 6e 72 | 65 61 6c 55 52 4c 28 73 |aunchUnr|ealURL(s|
|00000290| 74 72 69 6e 67 20 55 52 | 4c 29 0d 0a 7b 0d 0a 09 |tring UR|L)..{...|
|000002a0| 53 75 70 65 72 2e 4c 61 | 75 6e 63 68 55 6e 72 65 |Super.La|unchUnre|
|000002b0| 61 6c 55 52 4c 28 55 52 | 4c 29 3b 0d 0a 0d 0a 09 |alURL(UR|L);.....|
|000002c0| 47 65 74 50 61 72 65 6e | 74 28 63 6c 61 73 73 27 |GetParen|t(class'|
|000002d0| 55 57 69 6e 64 6f 77 46 | 72 61 6d 65 64 57 69 6e |UWindowF|ramedWin|
|000002e0| 64 6f 77 27 29 2e 43 6c | 6f 73 65 28 29 3b 0d 0a |dow').Cl|ose();..|
|000002f0| 09 52 6f 6f 74 2e 43 6f | 6e 73 6f 6c 65 2e 43 6c |.Root.Co|nsole.Cl|
|00000300| 6f 73 65 55 57 69 6e 64 | 6f 77 28 29 3b 0d 0a 7d |oseUWind|ow();..}|
|00000310| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 52 4d 6f |....func|tion RMo|
|00000320| 75 73 65 55 70 28 66 6c | 6f 61 74 20 58 2c 20 66 |useUp(fl|oat X, f|
|00000330| 6c 6f 61 74 20 59 29 0d | 0a 7b 0d 0a 09 6c 6f 63 |loat Y).|.{...loc|
|00000340| 61 6c 20 55 42 72 6f 77 | 73 65 72 49 52 43 50 61 |al UBrow|serIRCPa|
|00000350| 67 65 42 61 73 65 20 50 | 3b 0d 0a 09 6c 6f 63 61 |geBase P|;...loca|
|00000360| 6c 20 66 6c 6f 61 74 20 | 47 58 2c 20 47 59 3b 0d |l float |GX, GY;.|
|00000370| 0a 0d 0a 09 50 20 3d 20 | 55 42 72 6f 77 73 65 72 |....P = |UBrowser|
|00000380| 49 52 43 50 61 67 65 42 | 61 73 65 28 47 65 74 50 |IRCPageB|ase(GetP|
|00000390| 61 72 65 6e 74 28 63 6c | 61 73 73 27 55 42 72 6f |arent(cl|ass'UBro|
|000003a0| 77 73 65 72 49 52 43 50 | 61 67 65 42 61 73 65 27 |wserIRCP|ageBase'|
|000003b0| 29 29 3b 0d 0a 09 57 69 | 6e 64 6f 77 54 6f 47 6c |));...Wi|ndowToGl|
|000003c0| 6f 62 61 6c 28 58 2c 20 | 59 2c 20 47 58 2c 20 47 |obal(X, |Y, GX, G|
|000003d0| 59 29 3b 0d 0a 09 50 2e | 47 6c 6f 62 61 6c 54 6f |Y);...P.|GlobalTo|
|000003e0| 57 69 6e 64 6f 77 28 47 | 58 2c 20 47 59 2c 20 58 |Window(G|X, GY, X|
|000003f0| 2c 20 59 29 3b 0d 0a 09 | 50 2e 52 4d 6f 75 73 65 |, Y);...|P.RMouse|
|00000400| 55 70 28 58 2c 20 59 29 | 3b 0d 0a 7d 0d 0a 0d 0a |Up(X, Y)|;..}....|
|00000410| 00                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+